home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_mc.idb / usr / freeware / lib / mc / extfs / hp48.z / hp48
Encoding:
Text File  |  1998-10-28  |  2.5 KB  |  98 lines
  1. #!/bin/sh
  2. #
  3. # Written by Christofer Edvardsen <ce@earthling.net>, Feb 1998
  4. #
  5. # This script makes it possible to view and copy files to/from a hp48
  6. # (tested with a HP48G and the emulator x48)
  7. #
  8. # To use the hp48 external filesystem:
  9. #      - read the relevant parts of your HP48 manual
  10. #      - install kermit
  11. #      - connect the HP48 to your computer or start x48
  12. #      - below change the line which reflects the serial device you use
  13. #      - configure your HP48 (<left shift> - i/o - iopar): 
  14. #        port: wire
  15. #        baud: 9600 
  16. #        transfer format: binary (fast transfers) or
  17. #                         ascii (editable on the pc)
  18. #      - start the server on the HP48: <left shift> - i/o - srvr - serve
  19. #        or the shortcut <right shift> - <right arrow>
  20. #      - on MC's commandline enter "cd hp48:"
  21. #
  22. # Make sure you have kermit installed and that it's using the right serial
  23. # device by changing /dev/ttyXX on the next line
  24. KERMIT="kermit -l /dev/ttyS1 -b 9600"
  25. AWK=mawk
  26.  
  27. hp48_cmd()
  28. {
  29. $KERMIT -C "SET EXIT WARNING OFF,REMOTE $*,QUIT"
  30. }
  31.  
  32. hp48_cd()
  33. {
  34. (echo SET EXIT WARNING OFF;echo REMOTE HOST HOME
  35. for HP48_DIR in `echo $*|tr '/' ' '`;do
  36.  if [ "$HP48_DIR" != "." ];then echo REMOTE HOST $HP48_DIR;fi
  37. done
  38. echo QUIT)| $KERMIT -B >/dev/null
  39. }
  40.  
  41. hp48_retdir()
  42. {
  43. echo $1
  44. }
  45.  
  46. hp48_retsize()
  47. {
  48. printf "%d" $2 2>/dev/null
  49. }
  50.  
  51. hp48_parser()
  52. {
  53. HP48_DIRS=
  54. read INPUT
  55. while [ "$INPUT" != "EOF" ]
  56. do
  57.     case `echo $INPUT|$AWK '{if (int($2)) if ($3=="Directory") print "dir";else print "file"}'` in
  58.     dir) HP48_DIRS="$HP48_DIRS `hp48_retdir $INPUT`"
  59.     printf "drwxr-xr-x   1 %-8d %-8d %8d %s %s\n" 0 0 `hp48_retsize $INPUT` "`date +\"%b %d %Y %k:%M"`" "$HP48_CDIR/`hp48_retdir $INPUT`";;
  60.     file) printf "-rw-r--r--   1 %-8d %-8d %8d %s %s\n" 0 0 `hp48_retsize $INPUT` "`date +"%b %d %Y %k:%M"`" "$HP48_CDIR/`hp48_retdir $INPUT`";;
  61.     esac
  62.     read INPUT
  63. done
  64. for HP48_DIR in $HP48_DIRS;do 
  65.  HP48_PDIR=$HP48_CDIR
  66.  HP48_CDIR=$HP48_CDIR/$HP48_DIR; hp48_cmd HOST $HP48_DIR >/dev/null
  67.  hp48_list
  68.  HP48_CDIR=$HP48_PDIR; hp48_cmd HOST UPDIR >/dev/null
  69. done
  70. }
  71.  
  72. hp48_list()
  73. {
  74. (hp48_cmd DIRECTORY;echo;echo EOF)|hp48_parser
  75. }
  76.  
  77. # override any locale for dates
  78. LC_ALL=C
  79. export LC_ALL
  80.  
  81. case $1 in
  82. list) HP48_CDIR=
  83.     hp48_cmd HOST HOME >/dev/null
  84.     hp48_list
  85.     exit 0;;
  86. copyout)
  87.     cd `dirname $4`
  88.     hp48_cd `dirname $3`
  89.     $KERMIT -B -g `basename $3` -a $4 >/dev/null
  90.     exit 0;;
  91. copyin) 
  92.     cd `dirname $4`
  93.     hp48_cd `dirname $3`
  94.     $KERMIT -B -s $4 -a `basename $3` >/dev/null
  95.     exit 0;;
  96. esac
  97. exit 1
  98.